home *** CD-ROM | disk | FTP | other *** search
/ The Epic Collection 3 / Epic Collection 3, The (1997)(Epic Marketing)[!].iso / internet / irc / amirc11 / rexx / leave.amirx next >
Text File  |  1996-09-08  |  337b  |  19 lines
  1. /* LEAVE.AMIRX -- Leave a channel with a message
  2. \\ written by Oliver Wagner
  3. //
  4. \\ Put this script in PROGDIR:rexx/ and add this as an alias with the
  5. // command:  "/alias leave /rx leave %p"
  6. \\
  7. */
  8.  
  9. PARSE ARG ARGS
  10. OPTIONS RESULTS
  11.  
  12. if ARGS = "" then do
  13.    "echo P="d2c(27)"b«Error» Usage: LEAVE text"
  14.    exit
  15. end
  16.  
  17. 'say 'ARGS
  18. 'say /!leave'
  19.